home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 7 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  639 b   |  35 lines
  1. 10 ;RD TRK 7
  2. 20 FILL JSR LIST; PUT 0'S FROM $0300 TO $05FF
  3. 30 LDY #$00; IN 1541 RAM BUFFERS
  4. 40 FILL1 LDA MW5,Y;M-W 00 03 FF
  5. 50 JSR OUT
  6. 60 INY
  7. 70 CPY #$06
  8. 80 BNE FILL1
  9. 90 LDY #$00
  10. 100 FILL2 LDA #$00
  11. 110 JSR OUT
  12. 120 INY
  13. 130 CPY #$20
  14. 140 BNE FILL2
  15. 150 CLC
  16. 160 LDA MW5+3
  17. 170 ADC #$20
  18. 180 CMP #$00
  19. 190 BEQ FILL3
  20. 200 STA MW5+3;INCREMENT LO BYTE M-W ADDRESS BY #$20
  21. 210 JSR UNLIS
  22. 220 JMP FILL
  23. 230 FILL3 LDA #$00:STA MW5+3
  24. 235 INC MW5+4;INCREMENT HI BYTE M-W ADDRESS
  25. 240 LDA MW5+4
  26. 260 CMP #$06
  27. 270 BEQ FILL4
  28. 290 JSR UNLIS
  29. 300 JMP FILL
  30. 310 FILL4 JSR UNLIS
  31. 320 LDA #$00:STA MW5+3;RESTORE M-W ADDRESS
  32. 325 LDA #$03:STA MW5+4
  33. 330 RTS
  34. 340 .FILE RD TRK 8
  35.